home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9401.d64 / texto+ -> dl-wri (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  162 lines
  1. 0 DIMK(255):NU$=CHR$(0):C1$=CHR$(143):C2$=CHR$(144)
  2. 1 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,32,33,34,21,36,37,38,39,40,41,42,43,44
  3. 2 DATA45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,192,65,66,67
  4. 3 DATA68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90
  5. 4 DATA219,156,221,222,146,100,193,194,195,196,197,198,199,200,201,202,203
  6. 5 DATA204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,,,,,,,,,,,
  7. 6 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,32,148,,143,,132,129,225,153,142,154,223,248
  8. 7 DATA174,93,254,91,240,221,,3,35,219,176,241,179,,60,228,175,62,100,,193
  9. 8 DATA194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210
  10. 9 DATA211,212,213,214,215,216,217,218,,101,179,227,177,,,,,,,,,,,,,,,,,,,,,,
  11. 10 DATA,,,,,,,,,
  12. 11 FORI=.TO255:READK(I):NEXT
  13. 20 PRINT"[147]KONVERTER V1  TEXTOMAT PLUS -> DL-WRITER
  14. 22 [153]"BITTE DATEINAMEN EINGEBEN:
  15. 23 PRINT"                [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][185]
  16. 24 [133]"TEXTOMAT PLUS                  (null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";N1$
  17. 25 [153]"RETURNBITTE JETZT NUR GROSSBUCHSTABEN!
  18. 26 INPUT"DL-WRITER     ";N2$
  19. 28 OPEN15,8,15
  20. 30 OPEN2,8,2,N1$+",P,R
  21. 32 [141]1000
  22. 40 [159]3,8,3,N2$[170]",P,W
  23. 42 GOSUB1000
  24. 44 BL=1:PRINT#3,C2$"B";:MU$="0
  25. 46 [153]"
  26. 50 GET#2,A$:A=ASC(A$+CHR$(0)):S=ST:POKE212,1:PRINTA$;
  27. 52 IFA=163THEN100
  28. 54 PRINT#3,CHR$(K(A));
  29. 60 IFS=0THEN50
  30. 70 PRINT:PRINT:GOSUB3000:CLOSE3:CLOSE2:GOSUB1000:CLOSE15:PRINT"ALLES OK.":END
  31. 100 GET#2,A$
  32. 102 IFA$="F"THEN200
  33. 104 IFA$="1"THENPRINT#3,C1$"C1";:KU=1:GOTO60
  34. 106 IFA$="2"THEN310
  35. 108 IFA$="3"THEN320
  36. 110 IFA$="4"THENPRINT#3,C1$"P1";:PR=1:GOTO60
  37. 112 IFA$="5"THENPRINT#3,C1$"T";:GOTO60
  38. 114 IFA$="6"THENPRINT#3,C1$"H";:GOTO60
  39. 116 IFA$="7"THENPRINT#3,C1$"S1";:SC=1:GOTO60
  40. 118 IFA$="8"THENPRINT#3,CHR$(22);:GOTO60
  41. 120 IFA$="9"THEN600
  42. 122 IFA$="L"THEN500
  43. 124 IFA$="R"THEN550
  44. 126 IFA$="D"THEN300
  45. 128 IFA$="C"THEN750
  46. 130 IFA$="[213]"THEN250
  47. 132 IFA$="B"THEN700
  48. 134 IFA$="E"THEN800
  49. 136 IFA$="A"THEN900
  50. 138 IFA$="U"THEN850
  51. 140 IFA$="O"THEN860
  52. 142 IFA$="0"THEN450
  53. 190 GOTO60
  54. 200 IFFETHENFE=0:PRINT#3,C1$"F0";:GOTO60
  55. 210 PRINT#3,C1$"F1";:FE=1:GOTO60
  56. 250 IFUNTHENUN=0:PRINT#3,C1$"U0";:GOTO60
  57. 252 PRINT#3,C1$"U1";:UN=1:GOTO60
  58. 300 GET#2,A$:IFA$="I"THEN304
  59. 302 PRINT#3,"TT.MM.JJ ";:GOTO60
  60. 304 GET#2,A$:GET#2,A$
  61. 306 IFA$="0"THENPRINT#3,C1$"A036";:GOTO60
  62. 307 IFA$="2"THENPRINT#3,C1$"A030";:GOTO60
  63. 308 IFA$="5"THENPRINT#3,C1$"S1";:SC=1:GOTO60
  64. 309 GOTO60
  65. 310 PRINT#3,C1$"O";
  66. 312 GET#2,A$:PRINT#3,A$;
  67. 314 GET#2,A$:IFA$="0"THEN60
  68. 316 PRINT#3,C1$"Q"A$;:GOTO60
  69. 320 PRINT#3,C1$"G";
  70. 322 GET#2,A$:PRINT#3,A$;
  71. 324 GET#2,A$:IFA$<>"0"THENGET#2,A$:A$="9":GOTO328
  72. 326 GET#2,A$
  73. 328 PRINT#3,A$;:GOTO60
  74. 330 GET#2,A$:GET#2,A$:GOTO320
  75. 350 X$="U":GOTO354
  76. 352 X$="F
  77. 354 [161]#2,Z1$:[161]#2,Z2$:[161]#2,Z3$:Z[178][181]((100[172][197](Z1$)[170]10[172][197](Z2$)[170][197](Z3$))[173]2)
  78. 356 [139]Z[179]1[167]60
  79. 358 [139]Z[179]100[167]370
  80. 360 Z[178]Z[171]99
  81. 362 [152]3,C2$X$"99";:[137]356
  82. 370 ZH[178][181](Z[173]10):ZL[178]Z[171]ZH[172]10
  83. 380 [152]3,C2$X$[199](48[170]ZH)[199](48[170]ZL);:[137]60
  84. 450 A[178]0:[139]FE[167][152]3,C1$"F0";:A[178]1
  85. 452 [139]KU[167]KU[178]0:[152]3,C1$"C0";:A[178]1
  86. 454 [139]PR[167]PR[178]0:[152]3,C1$"P0";:A[178]1
  87. 456 [139]UN[167][152]3,C1$"U0";:A[178]1
  88. 458 [139]SC[167]SC[178]0:[152]3,C1$"S0";:A[178]1
  89. 460 [139]OB[167]OB[178]0:[152]3,C1$"I0";:A[178]1
  90. 480 MU$[178]"0":[139]A[178]0[167][152]3,C1$"X";
  91. 490 [137]60
  92. 500 [161]#2,A$:[139]A$[179][177]"R"[167]504
  93. 502 [152]3,C2$"L";:[137]60
  94. 504 [139]A$[179][177]"N"[167]60
  95. 506 [161]#2,A$:[161]#2,B$:E[178][197](A$)[172]10[170][197](B$):[139]E[178]0[167]60
  96. 508 [129]I[178]1[164]E:[152]3,[199](146);:[130]:[137]60
  97. 550 [161]#2,A$:[139]A$[179][177]"R"[167]60
  98. 552 [152]3,C2$"R";:[137]60
  99. 600 [161]#2,A$
  100. 606 [139]A$[178]"CHR$"[167][152]3,C1$"D1";:[137]60
  101. 608 [139]A$[178]"LEFT$"[167][152]3,C1$"D0";:[137]60
  102. 610 [139]A$[178]"(null)"[167][152]3,C1$"B";:[137]60
  103. 612 [139]A$[178]"E"[167]650
  104. 614 [139]A$[178]"%"[167][161]#2,A$:[152]3,C1$"T";:[137]60
  105. 616 [139]A$[178]"U"[167]330
  106. 620 [152]3,C2$"H"A$;:[137]60
  107. 650 [161]#2,A$
  108. 652 [139]A$[178]"LEFT$"[167][152]3,C1$"A";:[137]60
  109. 654 [139]A$[178]"O"[167][152]3,C1$"V";:[137]60
  110. 656 [139]A$[178]"RIGHT$"[167][161]#2,MU$:[137]60
  111. 658 [139]A$[178]"(null)"[167]690
  112. 660 [139]A$[178]"VAL"[167]950
  113. 662 [139]A$[178]"J"[167]350
  114. 664 [139]A$[178]"MID$"[167]352
  115. 680 [152]3,C2$"HE"A$;:[137]60
  116. 690 [161]#2,A$:[139]A$[178]"0"[167][152]3,C1$"M0";:[137]60
  117. 692 [152]3,C1$"M"MU$;:[137]60
  118. 700 [161]#2,A$:[139]A$[179][177]"L"[167]60
  119. 702 BL[178]1[171]BL:[139]BL[178]1[167][152]3,C2$"B";:[137]60
  120. 704 [139]CE[178]1[167][152]3,C2$"C";:[137]60
  121. 706 [152]3,C2$"X";:[137]60
  122. 750 CE[178]1[171]CE:[139]CE[178]1[167][152]3,C2$"C";:[137]60
  123. 754 [139]BL[178]1[167][152]3,C2$"B";:[137]60
  124. 756 [152]3,C2$"X";:[137]60
  125. 800 [161]#2,A$:[139]A$[179][177]"R"[167]60
  126. 802 [161]#2,A$:[161]#2,B$:E[178][197](A$)[172]10[170][197](B$):[139]E[178]0[167]60
  127. 804 [129]I[178]1[164]E:[152]3,[199](145);:[130]:[137]60
  128. 850 [152]3,C1$"I2";:OB[178]1:[137]60
  129. 860 [152]3,C1$"I1";:OB[178]1:[137]60
  130. 900 [161]#2,A$:[139]A$[179][177]"B"[167][161]#2,A$:[137]60
  131. 902 [161]#2,A$
  132. 904 [139]A$[178]"1"[167][152]3,C2$"Z2";:[137]60
  133. 906 [139]A$[178]"2"[167][152]3,C2$"Z3";:[137]60
  134. 908 [139]A$[178]"3"[167][152]3,C2$"A36";:[137]60
  135. 910 [137]60
  136. 950 [161]#2,Z1$:[161]#2,Z2$:[161]#2,Z3$:Z[178]100[172][197](Z1$)[170]10[172][197](Z2$)[170][197](Z3$)
  137. 952 [139]Z[179]63[175]Z[177]0[175]Z[179][177]22[167][152]3,[199](Z);:[137]60
  138. 954 [139]Z[177]63[175]Z[179]96[167][152]3,[199](Z[170]128);:[137]60
  139. 956 [139]Z[178]262[167][152]3,[199](0);:[137]60
  140. 958 [139]Z[177]95[175]Z[179]127[167][152]3,[199](Z[171]32);:[137]60
  141. 960 [139]Z[178]127[167][152]3,[199](145);:[137]60
  142. 962 [139]Z[177]127[175]Z[179]143[175]Z[179][177]134[167][152]3,[199](Z);:[137]60
  143. 964 [139]Z[177]146[175]Z[179]192[175]Z[179][177]158[175]Z[179][177]165[175]Z[179][177]167[175]Z[179][177]166[167][152]3,[199](Z);:[137]60
  144. 966 [139]Z[178]290[167][152]3,[199](158);:[137]60
  145. 968 [139]Z[177]191[175]Z[179]224[167][152]3,[199](Z[171]96);:[137]60
  146. 970 [139]Z[177]223[175]Z[179]255[167][152]3,[199](Z);:[137]60
  147. 972 [139]Z[178]319[167][152]3,[199](255);:[137]60
  148. 974 [139]Z[178]267[167][152]3,[199](165);:[137]60
  149. 976 [139]Z[178]256[167][152]3,[199](166);:[137]60
  150. 978 [139]Z[178]257[167][152]3,[199](167);:[137]60
  151. 980 [152]3,C1$"Z"Z1$Z2$Z3$;:[137]60
  152. 1000 [132]15,F1,F1$,F2,F3:[139]F1[179]2[167][142]
  153. 1002 [153]"DISK-FEHLER NR."F1:[153]F1$:[153]"TR."F2" SE"F3:[128]
  154. 3000 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  155. 3001 PRINT"HINWEIS: SOLLTE ES ZU STOERUNGEN BEIM  "
  156. 3002 PRINT"DRUCK DES KONVERTIERTEN DOKUMENTS KOM- "
  157. 3004 PRINT"MEN (INSBESONDERE FALSCHER HORIZONTALER"
  158. 3006 PRINT"ZEICHENABSTAND, KANN ES HELFEN, DAS    "
  159. 3008 PRINT"BLOCKSATZ-STEUERZEICHEM AM TEXTANFANG  "
  160. 3010 PRINT"ZU LOESCHEN ODER GEGEN DEN CODE FUER   "
  161. 3012 PRINT"'WORDWRAP AUS' ZU ERSETZEN.            ":RETURN
  162.